home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __word_games__ / dadapoet / stack_-1.xml < prev   
Extensible Markup Language  |  1993-08-13  |  3KB  |  24 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>4066</cardID>
  8.     <listID>2211</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>Function ShortFN FNrepeat until offset(":",FN)=0delete char 1 to offset(":",FN) of FNend repeatreturn FNend ShortFNon openStackhide messageput 1000 into cardticklock screencreate menu "DadaPoet"put "About DadaPoet,Open a text file...," & ┬¼"Make a DadaPoem,Save DadaPoem as...," & ┬¼"Configure DadaPoet,Quit DadaPoet" into menu "dadaPoet"show menubarconfigureend openStackon closeStackreset menubarend closeStackon idleglobal cardtickif (the ticks-cardtick)>1000 thenput the ticks into cardtickif number of this card is 1 thenif visible of card field "poem" is false thenshow card field "warning"wait 40 tickshide card field "warning"end ifend ifend ifpass idleend idleon doMenu which--if which is "About DadaPoet" thenvisual dissolvego to card "DadaPoet"disable menu "dadapoet"--else if which is "Configure DadaPoet" thenvisual zoom opengo to card "configure"disable menu "dadapoet"--else if which is "open a text File..." thensend MouseUp to background button "Read File"--else if which is "Quit Dadapoet" thensend mouseup to background button "Quit"--else if which is "Save DadaPoem As..." thensend mouseup to background button "Save Poem"--else if which is "Make a DadaPoem" thensend mouseup to background button "Make Poem"--elsepass doMenuend ifend doMenuon ConfigureGlobal titlewords,Nwords,Nlines,Nstanzasput card field "titlewds" of card "configure" into titlewordsput card field "wds" of card "configure" into Nwordsput card field "lines" of card "configure" into NLinesput card field "stanzas" of card "configure" into Nstanzasif Nwords < 11 then set textsize of card field "poem" of card 1 to 12else if Nwords > 10 and Nwords < 16 then set textsize of card field "poem" of card 1 to 10else if Nwords > 15 then set textsize of card field "poem" of card 1 to 9end configure</script>
  17.     <background id="2965" file="background_2965.xml" name="" />
  18.     <background id="3633" file="background_3633.xml" name="" />
  19.     <background id="4750" file="background_4750.xml" name="" />
  20.     <card id="4066" file="card_4066.xml" marked="false" name="DADA" owner="3633" />
  21.     <card id="4882" file="card_4882.xml" marked="false" name="Configure" owner="4750" />
  22.     <card id="3161" file="card_3161.xml" marked="false" name="DadaPoet" owner="2965" />
  23. </stack>
  24.